﻿Imports System.IO
Public Class GestionTest

    Public Sub New()


    End Sub
    Public Function NombresFicheros() As List(Of String)
        Dim Lista As New List(Of String)
        If Not Directory.Exists("Ficheros") Then
            Return Nothing
        End If

        Dim ruta As String = My.Application.Info.DirectoryPath & "\Ficheros"
        Dim Ficheros() As String = Directory.GetFiles(ruta, "*.txt")
        For i As Integer = 0 To Ficheros.Length - 1

            Dim Datos() As String
            Datos = (Ficheros(i)).Split(".")
            Datos = Datos(0).Split("\")
            Lista.Add(Datos(Datos.Length - 1))
        Next

        Return Lista

    End Function

    Public Function EliminarFichero(ByVal nombre As String) As String
        If Not File.Exists("Ficheros\" & nombre & ".txt") Then
            Return "No existe ese fichero"
        End If
        File.Delete("Ficheros\" & nombre & ".txt")
        Return ""
    End Function




End Class
